home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / basic / BlitzLstMay02.lha / BlitzLstMay02 / attachments / mail_29 / graphicsbase.asc
Text File  |  2002-06-09  |  217b  |  16 lines
  1.  
  2.   WBStartup
  3.   *ptr.l = GraphicsBase
  4.   NPrint *ptr
  5.   NPrint Peek.l(*ptr+$27c)
  6.  
  7.   *ptr = OpenLibrary_("graphics.library",0)
  8.   If *ptr
  9.     NPrint *ptr
  10.     NPrint Peek.l(*ptr+$27c)
  11.     CloseLibrary_ *ptr
  12.   EndIf
  13.   End
  14.  
  15.  
  16.